home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)z1.d64 / boot c64 comal (.txt) next >
Commodore BASIC  |  2007-03-01  |  940b  |  37 lines
  1. 10 PRINT "[147]";CHR$(14)
  2. 20 POKE 53281,6
  3. 30 POKE 53280,6
  4. 40 PRINT "[154]";   :
  5. 50 PRINT "       [212][200][197] [195][207][205][193][204] [195][207][205][208][213][212][197][210][160][212][213][212][207][210]"
  6. 90 PRINT
  7. 100 PRINT "              [196]EVELOPED BY"
  8. 110 PRINT "            [205]ICRON  [211]OFTWARE
  9. 120 [153] "       (null)ROGRAMMER: CHR$ORDON (null)HIGLEY"
  10. 130 [153] "     (LEN) 1984 (null)ICRON (null)OFTWARE, RIGHT$NC."
  11. 135 [153] "    (null)AN ASCRANCISCO, LENATN;   (null)ADISON, (null)RIGHT$"
  12. 140 [153] "  STR$ISTRIBUTER: LENOMAL (null)SER'S CHR$ROUP, (null)(null)ATN"
  13. 150 [153] " 5501 CHR$ROVELAND (null)ER., (null)ADISON, (null)RIGHT$ 53716"
  14. 155 [153]
  15. 160 [153] "       (null)LEASE WAIT A MOMENT WHILE"
  16. 170 [153] "         THE PROGRAM IS LOADING"
  17. 180 [153] "              (null)ESSONS 1-20 WAIT"
  18. 190 [153] "  PEEKACKUP COPIES PERMITTED FOR EDUCATION"
  19. 200 [153] "  (null)O REPRODUCTION OF (null)(null)(null)(null)PEEK(null)(null)(null) PERMITTED"
  20. 210 [153]
  21. 220 [153] "          (null)ICRON (null)OFTWARE, RIGHT$NC."
  22. 230 [153]
  23. 240 [153] "PEEK(null)(null)(null)(null): (null)(null)(null)(null)(null)VAL (null)(null)(null)(null)(null) & CHR$(null)ATN(null)LEFT$RIGHT$LEN(null) (null)(null)(null)(null)(null)WAIT";
  24. 900 [143]
  25. 910 [143] CHAIN"HI + CHR$(13)
  26. 920 POKE 198,9
  27. 930 POKE 631,ASC("C")
  28. 940 POKE 632,ASC("H")
  29. 950 POKE 633,ASC("A")
  30. 960 POKE 634,ASC("I")
  31. 970 POKE 635,ASC("N")
  32. 980 POKE 636,34
  33. 990 POKE 637,ASC("H")
  34. 1000 POKE 638,ASC("I")
  35. 1010 POKE 639,13
  36. 1020 LOAD "C64 COMAL*",8
  37.